#!/usr/bin/env scheme-r7rs

; This is a script to test the plotting library
(import (scheme base)
        (scheme inexact)
        (macduffie plot))

; For testing
(define (f1 x) (* x x))
(define (f2 x) (/ 1 (+ 0.02 x)))
(define (f3 x) (sqrt (+ (* x x) 1)))
(define (f4 x) (sqrt (- 1 (* x x))))

; (plot f1 -5 40 -8 8 24 80)
; (plot f2 0 3 0 3 24 80)
; (plot f3 0 4 -3 3 24 80)
(plot f4 0 1 -1 1 24 80)
